home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / program / tspa3540.zip / TSUNTL.INT < prev    next >
Text File  |  1996-09-07  |  3KB  |  80 lines

  1. {$B-,D-,F-,I+,N-,R-,S+,V+}
  2.  
  3. (*
  4. Timo Salmi UNiT L
  5. A Turbo Pascal unit of miscellaneous additional routines
  6. All rights reserved 24-Feb-93
  7.  
  8. This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
  9. NON-INSTITUTIONAL purposes, provided it is not changed in any way, and
  10. that a proper attribution is made. For ANY other usage, such as use in a
  11. business enterprise or at a university, contact the author for the terms
  12. of registration.
  13.  
  14. The units are under development. Comments and contacts are solicited. If
  15. you have any feedback about this unit, please do not hesitate to use
  16. electronic mail for communication.
  17.  
  18. The author shall not be liable to the user for any direct, indirect or
  19. consequential loss arising from the use of, or inability to use, any unit,
  20. program or file howsoever caused. No warranty is given that the units and
  21. programs will work under all circumstances.
  22.  
  23. Timo Salmi (email: ts@uwasa.fi WWW: http://uwasa.fi/~ts/)
  24. Professor of Accounting and Business Finance
  25. Faculty of Accounting & Industrial Management
  26. University of Vaasa
  27. P.O. BOX 700, FIN-65101 Vaasa, Finland
  28. *)
  29.  
  30. unit TSUNTL;
  31.  
  32. (* ======================================================================= *)
  33.                           interface
  34. (* ======================================================================= *)
  35.  
  36. (* =======================================================================
  37.                    Screen and video related
  38.    ======================================================================= *)
  39.  
  40. uses Dos;
  41.  
  42. (* Scroll up a window *)
  43. procedure SCROLLUP (NumberOfLinesToScroll : byte;
  44.                     BlankLineAttribute    : byte;
  45.                     UpperLeftRow          : byte;
  46.                     UpperLeftColumn       : byte;
  47.                     LowerRightRow         : byte;
  48.                     LowerRightColumn      : byte);
  49.  
  50. (* Scroll down a window *)
  51. procedure SCROLLDN (NumberOfLinesToScroll : byte;
  52.                     BlankLineAttribute    : byte;
  53.                     UpperLeftRow          : byte;
  54.                     UpperLeftColumn       : byte;
  55.                     LowerRightRow         : byte;
  56.                     LowerRightColumn      : byte);
  57.  
  58. (* Test if the system has EGA or beyond. Does not require the graph unit *)
  59. function ISEGAFN : boolean;
  60.  
  61. (* =======================================================================
  62.                       Disk services
  63.    ======================================================================= *)
  64.  
  65. {$IFNDEF VER40}  (* Not Turbo Pascal 4.0 *)
  66.  
  67. type string11 = string[11];
  68.  
  69. (* Set a disk's volume label *)
  70. procedure SETLABEL (drive     : char;
  71.                     DiskLabel : string11;
  72.                     var ok    : boolean);
  73.  
  74. (* Delete a disk's volume label *)
  75. procedure NOLABEL (drive  : char;
  76.                    var ok : boolean);
  77.  
  78. {$ENDIF}  (* Not Turbo Pascal 4.0 *)
  79.  
  80.